#!/usr/bin/perl
use strict;
use warnings;
use FindBin '$Bin';
## Copy@right Alisam Technology see License.txt

## BENNER
our (@c, $Version);
my @ESLOGAN=("No monopoly for knowledge!", "Virgin!! life will fuck us 4ll!", "! Love Mezguida H4ck3rs !", "No Pe4ce b3tween syst3ms!", "Do not be 4 bl4ck h4cker!", "! Keep c4lm 4nd love me !",
"You look b3tt3r tod4y !", "No h4y s1st3m4 4 s4lvo !!", "When b3 broken u will h3ar it!");
  my @LOGO=("
    $c[4]     /\\ ___ /\\ 
    $c[4]    (  o   o  )             $c[2]$ESLOGAN[rand @ESLOGAN]
    $c[4]    \\  >#<  / 
    $c[4]     /       \\       $c[9]     _  _____ ____   ____    _    _   _ 
    $c[4]    /         \\   ^  $c[9]    / \\|_   _/ ___| / ___|  / \\  | \\ | |
    $c[4]   |           | ||  $c[9]   / _ \\ | | \\___ \\| |     / _ \\ |  \\| |
    $c[4]    \\          /-//  $c[9]  / ___ \\| |  ___) | |___ / ___ \\| |\\  |
    $c[4]     ///  ///--      $c[9] /_/   \\_\\_| |____/ \\____/_/   \\_\\_| \\_| $c[3]V $Version",
    "
    $c[4]      . \\\\\\|||/// 
    $c[4]     / \\ ========
    $c[4]     \\ /| O   O | 
    $c[4]      #  \\` _ '/            $c[2]$ESLOGAN[rand @ESLOGAN]
    $c[4]     (#)   | |   
    $c[4]      #\\/( * * )\\     $c[9]     _  _____ ____   ____    _    _   _  
    $c[4]      #\\/(==*==)/     $c[9]    / \\|_   _/ ___| / ___|  / \\  | \\ | |
    $c[4]      #   || ||       $c[9]   / _ \\ | | \\___ \\| |     / _ \\ |  \\| |
    $c[4]     .#---'| |`----.  $c[9]  / ___ \\| |  ___) | |___ / ___ \\| |\\  |
    $c[4]     '#---'   `----'  $c[9] /_/   \\_\\_| |____/ \\____/_/   \\_\\_| \\_| $c[3]V $Version",
    "
    $c[4]      __________
    $c[4]     / ___  ___ \\
    $c[4]    / / @ \\/ @ \\ \\
    $c[4]    \\ \\___/\\___/ /\\         $c[2]$ESLOGAN[rand @ESLOGAN]
    $c[4]     \\____\\/____/||
    $c[4]     /     /\\\\\\\\\\//  $c[9]     _  _____ ____   ____    _    _   _ 
    $c[4]    |     |\\\\\\\\\\\\    $c[9]    / \\|_   _/ ___| / ___|  / \\  | \\ | |
    $c[4]     \\      \\\\\\\\\\\\   $c[9]   / _ \\ | | \\___ \\| |     / _ \\ |  \\| |
    $c[4]       \\______/\\\\\\\\  $c[9]  / ___ \\| |  ___) | |___ / ___ \\| |\\  |
    $c[4]        _||_||_      $c[9] /_/   \\_\\_| |____/ \\____/_/   \\_\\_| \\_| $c[3]V $Version",
    "
    $c[4]   .--,       .--,
    $c[4]  ( (  \\.---./  ) )
    $c[4]   '.__/o   o\\__.'
    $c[4]      {= ^  =}
    $c[4]       >  -  <             $c[2]$ESLOGAN[rand @ESLOGAN]
    $c[4]      /       \\
    $c[4]     //       \\\\       $c[9]     _  _____ ____   ____    _    _   _ 
    $c[4]    //|   .   |\\\\      $c[9]    / \\|_   _/ ___| / ___|  / \\  | \\ | |
    $c[4]    ''\\       /''_.-^  $c[9]   / _ \\ | | \\___ \\| |     / _ \\ |  \\| |
    $c[4]       \\  _  /--'      $c[9]  / ___ \\| |  ___) | |___ / ___ \\| |\\  |   
    $c[4]     ___)( )(___       $c[9] /_/   \\_\\_| |____/ \\____/_/   \\_\\_| \\_| $c[3]V $Version",
    "
    $c[4]        (>\\---/<)
    $c[4]        ,'     `.
    $c[4]       /  q   p  \\
    $c[4]      (  >(_Y_)<  )
    $c[4]      >-' `-' `-<-.
    $c[4]      /  _.== ==.,- \\       $c[2]$ESLOGAN[rand @ESLOGAN]
    $c[4]     /,    )`  '(    )
    $c[4]    ; `._.'      `--<  $c[9]     _  _____ ____   ____    _    _   _ 
    $c[4]   :     \\        |  ) $c[9]    / \\|_   _/ ___| / ___|  / \\  | \\ | |
    $c[4]   \\      )       ;_/  $c[9]   / _ \\ | | \\___ \\| |     / _ \\ |  \\| |
    $c[4]   `._ _/_  ___.'-\\\\\\  $c[9]  / ___ \\| |  ___) | |___ / ___ \\| |\\  |
    $c[4]       `--\\\\\\          $c[9] /_/   \\_\\_| |____/ \\____/_/   \\_\\_| \\_| $c[3]V $Version",
    "
    $c[4]   o       o  
    $c[4]    \\_____/                  $c[2]$ESLOGAN[rand @ESLOGAN]
    $c[4]    /=O=O=\\   ______ 
    $c[4]   /   ^   \\  \\\\\\\\\\\\\\   $c[9]     _  _____ ____   ____    _    _   _ 
    $c[4]   \\ \\___/ / /\\ ___  \\  $c[9]    / \\|_   _/ ___| / ___|  / \\  | \\ | |
    $c[4]    \\_ V _/ /\\ /\\\\\\\\  \\ $c[9]   / _ \\ | | \\___ \\| |     / _ \\ |  \\| |
    $c[4]      \\  \\_/\\ /\\ \@_/  / $c[9]  / ___ \\| |  ___) | |___ / ___ \\| |\\  |
    $c[4]       \\____\\__\\_____/  $c[9] /_/   \\_\\_| |____/ \\____/_/   \\_\\_| \\_| $c[3]V $Version",
    "
    $c[4]      \\\\\\|||/// 
    $c[4]      /=======\\           $c[2]$ESLOGAN[rand @ESLOGAN]
    $c[4]      =__   __=
    $c[4]     =( o) (o )=   $c[9]     _  _____ ____   ____    _    _   _ 
    $c[4]      =   U   =    $c[9]    / \\|_   _/ ___| / ___|  / \\  | \\ | |
    $c[4]      _________    $c[9]   / _ \\ | | \\___ \\| |     / _ \\ |  \\| |
    $c[4]      \\__!|!__/    $c[9]  / ___ \\| |  ___) | |___ / ___ \\| |\\  |
    $c[4]         \\_/       $c[9] /_/   \\_\\_| |____/ \\____/_/   \\_\\_| \\_| $c[3]V $Version"
  );
  print $LOGO[rand @LOGO]."\n"; mtak(); print "$c[4]\n";

1;
